home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
music
/
maxpak.zip
/
PROTEUS1.PR_
/
PROTEUS1.PR
Wrap
Text File
|
1992-11-30
|
2KB
|
102 lines
PROFILE FILE
* SAMPLE COMMENTS
BRAND "EMU"
INSTRUMENT "Proteus"
KIND PATCH
FILEEXT "PR0"
SIZE 16512
MIDI 1
TRANSMIT
CLEAR ALL
YESNO V0, " Are You Ready ? "
IFQUIT V0, 0
* GET Presets
MESSAGE SHOW "Sending Presets to Proteus"
CLEAR ALL
VINIT V1, 0
VINIT V6, H40
LOOP 64
SEND 6, HF0, H18, H04, H0M, H01, V6
XDATA 0, 258, V1
SEND 1, HF7
VADD V6, V6, 1
VADD V1, V1, 258
WAIT 120
ENDLOOP
MESSAGE CLEAR
ENDMACRO
RECEIVE
YESNO V0, " Are You Ready ? "
IFQUIT V0, 0
YESNO V3, "Get User Presets ?"
VADD V7, V3, H7E
IFJUMP V3, PRESETS
VINIT V6, 0
IFJUMP 1, NEXT
:PRESETS
VINIT V6, H40
:NEXT
* GET Presets
MESSAGE SHOW "Receiving Presets from Proteus"
CLEAR ALL
VINIT V1, 0
SEND 8, HF0, H18, H04, H0M, H00, V7, H7F, HF7
LOOP 64
GET 6, HF0, H18, H04, H0M, H01, V6, WAIT
RDATA 0, 258, V1
GET 1, HF7
VADD V6, V6, 1
VADD V1, V1, 258
ENDLOOP
MESSAGE CLEAR
ENDMACRO
DISKSAVE
DOPEN W, "PRO"
MESSAGE SHOW "Saving Proteus Presets"
VINIT V1, 0
LOOP 64
DWRITE 258, V1
VADD V1, V1, 258
ENDLOOP
DCLOSE
MESSAGE CLEAR
ENDMACRO
DISKLOAD
DOPEN R, "PRO"
MESSAGE SHOW "Reading Proteus Presets"
VINIT V1, 0
LOOP 64
DREAD 258, V1
VADD V1, V1, 258
ENDLOOP
DCLOSE
MESSAGE CLEAR
ENDMACRO
* 1st View ---- Procussion Kits
VIEW
PATCH TITLE "Presets"
PATCH OFFSET 0
PATCH LENGTH 258
PATCH NUMBER 64
NAME LENGTH 12
NAME OFFSET 0
NAME XFORM 2
TRANSMIT
* SEND PROGRAM
USERVAL V4, 0, 127, 0, "Enter the Preset Position"
SEND 6, HF0, H18, H04, H0M, H01, V4
XDATA 0, 258, 0
SEND 1, HF7
ENDMACRO
RECEIVE
CLEAR
USERVAL V4, 0, 127, 0, "Enter the Preset Position"
SEND 8, HF0, H18, H04, H0M, H00, V4, H00, HF7
GET 6, HF0, H18, H04, H0M, H01, V4, WAIT
RDATA 0, 258, 0
GET 1, HF7
ENDMACRO
VIEWEND Could also be DEF END
* END OF DEFINITION